  10 :return ;clear ;A=10;NT=0;&(21)=255
  15 BC=rnd (32)mul 8;FC=BC+4+rnd (32)mul 8
  20 print "   RUSSIAN  ROULETTE
  30 print "=========================
  40 print "PUSH JOYSTICK TO SPIN 
  50 print "CHAMBER, PULL TRIGGER to  FIRE!
  55 print ;print 
  60 print "LOTSALUCK!
  70 if (JY(1))+(JX(1))B=rnd (6);print "READY!";goto 80
  75 goto 70
  80 if TR(1)if B=1&(23)=255;&(19)=20;print "BANG!!";&(23)=0;&(19)=0;print "YOUR DEAD! SORRY ABOUT THAT!";goto 300
  85 if TR(1)if B#1goto 100
  90 goto 80
 100 A=A-1;print "- CLICK -";if A=0goto 400
 110 goto 70
 300 print ;print ;print "next VICTIM PLEASE!";for Z=1to 1000;next Z
 310 for Z=1to 87step 2;box 0,0,Z,Z,3;next Z;goto 10
 400 print ;print "YOU DID IT!!  10 MISSES!";print ;print "YOU WIN!!
 405 &(23)=255
 410 for Z=1to 10;print "YEA!";next Z;&(23)=0;goto 10
run 